//Mematikan sebuah Aplikasi
procedure TForm1.Button3Click(Sender: TObject);
var hProcess,i  : HWND;
      pid : DWORD;0
begin
        if Listbox1.itemindex<> - 1 then
        begin
                i := HWND(Listbox1.items.Objects[Listbox1.itemindex]);
                PostMessage(i,wm_close,0,0);
                GetWindowThreadProcessID( i, @pid );
                hProcess := OpenProcess(PROCESS_ALL_ACCESS, TRUE, pid);
                TerminateProcess(hProcess, 0);
        end;
end;

